-
Notifications
You must be signed in to change notification settings - Fork 1
/
.Rhistory
102 lines (102 loc) · 2 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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
require(Rvcg)
require(Rpcl)
ref<-vcgPlyRead("/media/celli/Data/EOS skull/tests/37.ply")
pclExport(ref)
q()
q()
ref;
remove.packages("Rpcl")
install.packages(Rcpp)
install.packages("Rcpp")
q()
require(devtools)
install_github("https://github.com/Celli119/Rpcl", local=FALSE)
install_github("Celli119/Rpcl", local=FALSE)
require(Rpcl)
pclExport(ref)
install_github("zarquon42b/RvtkStatismo", local=FALSE)
require(RvtkStatismo)
?pPCA
require(Morpho)
data(boneData)
model <- pPCA(boneLM[,,])
## change parameters without recomputing Procrustes fit
model1 <- UpdateModel(model, sigma=1, exVar=0.8)
q()
require(Rvcg)
require(Rpcl)
data(humface)
pclExport(humface)
require(Rvcg)
require(Rpcl)
data(humface)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(rPcl)
require(Rpcl)
pclExport(humface)
attributes(humface)
dim(humface$normals)
pclExport(humface)
q()
require(Rvcg)
require(Rpcl)
pclExport(humface)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
q()
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
q()
require(Rpcl)
pclExport(humface)
humface$vb[1:10,]
humface$vb[,1:10]
humface$vb[,1:10]
humface$vb[,1:15]
humface$vb[,1:15]
q()
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rocl)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)p
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rpcl)
pclExport(humface)
require(Rvcg)
require(Rpcl)
data(humface)
pclExport(humface)
require(Rvcg)
require(Rpcl)
data(humface)
pclExport(humface)
require(Rpcl)
cr2 <- vcgImport("/media/celli/Data/EOS skull/data/segmented_skulls/scaled/crane_12.stl")
require(Rvcg)
cr2 <- vcgImport("/media/celli/Data/EOS skull/data/segmented_skulls/scaled/crane_12.stl")
cr1 <- vcgImport("/media/celli/Data/EOS skull/data/segmented_skulls/scaled/crane_11.stl")
pclRegister(cr1, cr2)