-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
60 lines (60 loc) · 2.68 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=FALSE)
View(test)
remove(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt")
View(test)
remove(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", row.names=NULL)
View(test)
remove(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", row.names=NULL)
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=FALSE)
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt")
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", row.names=NULL)
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=FALSE, row.names=NULL)
View(test)
colnames(test) <- as.character(unlist(test[1,]))
test = test[-1, ]
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt")
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=TRUE)
> View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=TRUE) View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=TRUE)
View(test)
test <- read.delim("~/Desktop/UCF-REU-SmartHome/test.txt", header=TRUE, row.names = NULL)
View(test)
row.names(test)<-NULL
View(test)
library(readr)
test <- read_delim("test.txt", "\t", escape_double = FALSE,
col_types = cols(Date_Time = col_datetime(format = "%Y-%m-%d %H:%M:%S")),
trim_ws = TRUE)
View(test)
library(readr)
motor_states_random2 <- read_delim("motor_states_random2.txt",
"\t", escape_double = FALSE, col_types = cols(`Date/Time` = col_datetime(format = "%Y-%m-%d %H:%M:%S")),
trim_ws = TRUE)
View(motor_states_random2)
library(readr)
random_dataset2 <- read_delim("random_dataset2.txt",
"\t", escape_double = FALSE, col_types = cols(`Date/Time` = col_datetime(format = "%Y-%m-%d %H:%M:%S")),
trim_ws = TRUE)
View(random_dataset2)
library(rpart)
library(rpart.plot)
library(CrossValidation)
install.packages("rpart")
install.packages("rpart")
install.packages("rpart.plot")
library(rpart)
library(rpart.plot)
library(CrossValidation)
bathroom_temp_TREE <- rpart(random_dataset2$Bathroom_Temperature ~ random_dataset2$Lamp_State + random_dataset2$Fan_State + Bedroom2-Bathroom_Door + Bedroom1-Livingroom_Door, data = motor_states_random2)
bathroom_temp_TREE <- rpart(random_dataset2$Bathroom_Temperature ~ random_dataset2$Lamp_State + random_dataset2$Fan_State + motor_states_random2$Bedroom2-Bathroom_Door + Bedroom1-Livingroom_Door, data = motor_states_random2)
View(motor_states_random2)
bathroom_temp_TREE <- rpart(random_dataset2$Bathroom_Temperature ~ random_dataset2$Lamp_State + random_dataset2$Fan_State + motor_states_random2$Bedroom2-Bathroom_Door + motor_states_random2$Bedroom1-Livingroom_Door, data = motor_states_random2)