StructuralCharacterizationOfPlanningProblems/.Rhistory at master · ppGodel/StructuralCharacterizationOfPlanningProblems · GitHub

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
61
62
gp = read.csv("plannergraphdistedges.csv")
gp = read.csv("plannergraphdistedges.csv")
hist(gp$ad)
hist(gp$ind)
hist(gp$otd)
hist(gp$bc)
plot(x=1:length(gp), y=gp$bc)
plot(x=1:nrow(gp), y=gp$bc)
plot(x=1:nrow(gp), y=gp$ad)
plot(x=1:nrow(gp), y=gp$otd)
plot(x=1:nrow(gp), y=gp$ind)
boxplot(gp$bc~gp$time)
boxplot(gp$ad~gp$time)
boxplot(gp$id~gp$time)
boxplot(gp$ind~gp$time)
boxplot(gp$otd~gp$time)
hist(gp$ad~gp$time)
hist(gp$ad)
hist(gp$ind)
hist(gp$otd)
hist(gp$ind)
suppressMessages(library(ggplot2))
ggplot(data = gp, aes(x=factor(gp$time), y=gp$ad)) + labs( x="Niveles", y="Distribucion grados" ) + geom_violin()  + geom_boxplot(width=0.05) + theme(text = element_text(size=20))
ggplot(data = gp, aes(x=factor(gp$time), y=gp$bc)) + labs( x="Niveles", y="Distribucion grados" ) + geom_violin()  + geom_boxplot(width=0.05) + theme(text = element_text(size=20))
ggplot(data = gp, aes(x=factor(gp$time), y=gp$ind)) + labs( x="Niveles", y="Distribucion grados" ) + geom_violin()  + geom_boxplot(width=0.05) + theme(text = element_text(size=20))
ggplot(data = gp, aes(x=factor(gp$time), y=gp$otd)) + labs( x="Niveles", y="Distribucion grados" ) + geom_violin()  + geom_boxplot(width=0.05) + theme(text = element_text(size=20))
gp$name
q()
install.packages('Rmongo')
install.packages('RMongo')
library(RMongo)
mongoDbConnect(host='192.168.47.10', port=27017,dbName='planninggraphs')
mng=mongoDbConnect(host='192.168.47.10', port=27017,dbName='planninggraphs')
dbShowCollections(mng)
print(dbShowCollections(mng))
mng=mongoDbConnect(host='192.168.47.10', port=27017,dbName='planninggraphs', u='ppgodel')
mng=mongoDbConnect(host='192.168.47.10', port=27017,dbName='planninggraphs', user='ppgodel')
library(mongolite)
install.packages('mongolite')
exit()
exit
q()
install.packages('mongolite')
library(mongolite)
mongo(db="planninggraphs", url="mongodb://ppgodel:123abc@192.168.47.10:27017")
con = mongo(db="planninggraphs", url="mongodb://ppgodel:123abc@192.168.47.10:27017")
con$count
con$count()
con = mongo(db="planninggraphs", url="mongodb://ppgodel:123abc@192.168.47.10:27017",collection="graphs")
con$count()
con = mongo(db="planninggraphs", url="mongodb://ppgodel:123abc@192.168.47.10:27017",collection="nodes")
con$count()
con = mongo(db="planninggraphs", url="mongodb://ppgodel:123abc@192.168.47.10:27017",collection="graphs")
con$find()
tst=con$find()
typeof(tst)
sort(tst)
sort(tst, "pn")
order(tst)
tst
tst$pn
q()