-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy path.Rhistory
executable file
·170 lines (170 loc) · 6.14 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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
x = 5
library('bookdownplus')
bookdownplus('dnd_dev', render = TRUE, rproj = TRUE)
install.packages("productivity")
install.packages("deaR")
library(deaR)
library(help=deaR)
?plot.dea
library(deaR)
data_example <- read_data(datadea = Fortune500,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
data_example
Fortune500
data_example <- read_data(datadea = Fortune500,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
result <- model_basic(data_example)
result
result
plot(result)
library('bookdownplus')
bookdownplus('dnd', render = TRUE, rproj = TRUE)
library("FactoMineR")
devtools::install_github("kassambara/factoextra")
library("factoextra")
library("factoextra")
setwd("/media/myaseen/Documents/MYaseen208/Consultancy_at_UAF/Ms._Huma_Qasim_Stat_IUB/2019-04-27")
## ----Set-WD ----
setwd("/media/myaseen/Documents/MYaseen208/Consultancy_at_UAF/Ms._Huma_Qasim_Stat_IUB/2019-04-28")
##----Reading-Packages----
suppressMessages(source("00LoadingRPackages.R"))
##----Reading-Data----
Data1 <- haven::read_sav(file = "Ms._Huma_Qasim_Stat_IUB_2019-04-28.sav")
Data <-
haven::as_factor(
x = Data1
, levels = c("default", "labels", "values", "both")[1]
, ordered = FALSE
)
Data$Education_Level <-
fct_relevel(
.f = Data$Education_Level
, c("Illiterate", "Primary", "Middle", "Matric", "Intermediate", "Bachelors", "Masters", "Other")
)
dput(names(Data)[123:168])
Data.Quant <- Data[ ,123:168]
Data.Quant.PCA <-
PCA(
X = Data.Quant
, scale.unit = TRUE
, ncp = 5
, ind.sup = NULL
, quanti.sup = NULL
, quali.sup = NULL
, row.w = NULL
, col.w = NULL
, graph = FALSE
, axes = c(1, 2)
)
Data.Quant.PCA
fviz_pca_biplot(X = Data.Quant.PCA)
summary(Data.Quant.PCA)
fviz_dend(HCPC(Data.Quant.PCA))
fviz_pca_biplot(
X = Data.Quant.PCA
, axes = c(1, 2)
, select.var = list(contrib = 5)
, geom = c("point", "text")
# , geom.ind = geom
, geom.var = c("arrow", "text")
, col.ind = "black"
, fill.ind = "white"
, col.var = "steelblue"
, fill.var = "white"
, gradient.cols = NULL
, label = "all"
, invisible = "none"
, repel = FALSE
, habillage = "none"
, palette = NULL
, addEllipses = FALSE
, title = "PCA - Biplot"
# , ...
)
Data.Spouse <- Data[ , c(6, 7, 9, 26:27, 30:40, 49, 51:53, 56:64)]
# cat(gsub(pattern=",", replacement="\n\t,", x=formatR:::usage(MCA)))
head(Data.Spouse)
Data.Spouse.MCA <-
MCA(
X = Data.Spouse
, ncp = 5
, ind.sup = NULL
, quanti.sup = NULL
, quali.sup = NULL
, excl = NULL
, graph = TRUE
, level.ventil = 0
, axes = c(1, 2)
, row.w = NULL
, method = "Indicator"
, na.method = "NA"
, tab.disj = NULL
)
fviz_mca_biplot(
X = Data.Spouse.MCA
# , select.var = list(contrib = 15)
, select.var = list(cos2 = 0.3)
, repel = FALSE
) +
theme_igray() +
scale_colour_tableau() +
theme(plot.title = element_text(hjust = 0.5))
setwd("/media/myaseen/Documents/MYaseen208/Consultancy_at_UAF/Ms._Huma_Qasim_Stat_IUB/2019-04-27")
suppressMessages(source("00LoadingRPackages.R"))
brew(file = "201AnalysisCode.Rnwe", output = "201AnalysisCode.R")
brew(file = "201Analysis.Rnwe", output = "201Analysis.Rnw")
knit2pdf(input="Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.Rnw", quiet = TRUE)
texi2dvi("Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.tex", pdf = TRUE)
texi2dvi("Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.tex", pdf = TRUE)
texi2dvi("Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.tex", pdf = TRUE)
texi2dvi("Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.tex", pdf = TRUE)
system(paste(getOption("pdfviewer"), "Ms._Huma_Qasim_Stat_IUB_2019-04-27_Rnw.pdf"))
setwd("/media/myaseen/Documents/MYaseen208/Consultancy_at_UAF/Dr._M._Aslam_Mirza_AN_UAF/2019-10-10")
suppressMessages(source("00LoadingRPackages.R"))
brew::brew(file = "201AnalysisCode.Rnwe", output = "201AnalysisCode.R")
brew::brew(file = "201Analysis.Rnwe", output = "201Analysis.Rnw")
knitr::knit2pdf(input = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.Rnw", quiet = TRUE)
knitr::knit2pdf(input = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.Rnw", quiet = TRUE)
tools::texi2pdf(file = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.tex")
tools::texi2pdf(file = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.tex")
tools::texi2pdf(file = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.tex")
tools::texi2pdf(file = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.tex")
system(paste(getOption("pdfviewer"), "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.pdf"))
knit2pdf(input = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.Rnw", quiet = TRUE)
knit2pdf(input = "2019-10-10_Dr._M._Aslam_Mirza_AN_UAF.Rnw", quiet = TRUE)
setwd("/media/myaseen208/Documents/MYaseen208/Consultancy_at_UAF/Mr._Venkatarao_Mannam_USA/2020-02-17")
suppressMessages(source("00LoadingRPackages.R"))
knitr::knit2pdf(input = "2020-02-17_Mr._Venkatarao_Mannam_USA.Rnw", quiet = TRUE)
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
system(paste(getOption("pdfviewer"), "2020-02-17_Mr._Venkatarao_Mannam_USA.pdf"))
knitr::knit2pdf(input = "2020-02-17_Mr._Venkatarao_Mannam_USA.Rnw", quiet = TRUE)
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
tools::texi2pdf(file = "2020-02-17_Mr._Venkatarao_Mannam_USA.tex")
system(paste(getOption("pdfviewer"), "2020-02-17_Mr._Venkatarao_Mannam_USA.pdf"))
rm(list = ls())
setwd("/media/myaseen208/Documents/MYaseen208/Consultancy_at_UAF/Mr._M._Yaseen/2017-09-14RPackages/agriTutorial/agriTutorial")
getwd()
library(devtools)
devtools::load_all()
# usethis::use_testthat()
devtools::document(roclets=c('rd', 'collate', 'namespace', 'vignette'))
devtools::install_github("r-lib/devtools")
rm(list = ls())
setwd("/media/myaseen208/Documents/MYaseen208/Consultancy_at_UAF/Mr._M._Yaseen/2017-09-14RPackages/agriTutorial/agriTutorial")
getwd()
library(devtools)
devtools::load_all()
# usethis::use_testthat()
devtools::document(roclets=c('rd', 'collate', 'namespace', 'vignette'))
# devtools::test()
devtools::check()
devtools::load_all(".")