.Rhistory

install.packages("yaml")
install.packages("Rcpp")
install.packages("stringi")
remove.packages("stringi", lib="~/R/win-library/3.5")
install.packages("stringi")
install.packages(c("pillar", "rgdal", "rgeos", "rJava", "rlang", "stringi", "utf8"))
install.packages("sp")
install.packages(c("highr", "munsell", "rgdal", "rgeos", "rmarkdown", "xlsx", "zoo"))
library(swirl)
install.packages("RCurl")
remove.packages("RCurl", lib="~/R/win-library/3.5")
install.packages("RCurl")
library(swirl)
install.packages("RCurl")
library(swirl)
remove.packages("bitops", lib="~/R/win-library/3.5")
library(swirl)
install.packages("bitops")
library(swirl)
remove.packages("digest", lib="~/R/win-library/3.5")
install.packages("digest")
library(swirl)
remove.packages("testthat", lib="~/R/win-library/3.5")
install.packages("testthat")
library(swirl)
swirl()
install.packages(c("munsell", "rmarkdown", "spData", "stringi", "xlsx"))
#setwd("F:/用户目录/我的文档/R Workspace/qmf_project") #you need to change the directory
load("MAFS5140_Final_Project.RData")
setwd("C:\\Users\\jiaju\\Documents\\Github\\mini_program")
source('fib_r.R')
Rcpp::sourceCpp('fibcpp.cpp')
system.time(fib_R(31))
system.time(fib_cpp_1(31))
install.packages("GlobalEnv")
system.time(fib_cpp_1(31))
fib_R <- function(n){
if(n==1||n==2) return(1)
return(fib_R(n-1)+fib_R(n-2))
}
Rcpp::sourceCpp('fibcpp.cpp')
source('fib_r.R')
setwd("C:\\Users\\jiaju\\Documents\\Github\\mini_program")
setwd("C:\\Users\\jiaju\\Documents\\Github\\mini_program")
source('fib_r.R')
Rcpp::sourceCpp('fibcpp.cpp')
system.time(fib_R(31))
system.time(fib_cpp_1(31))
setwd("C:\\Users\\jiaju\\Documents\\Github\\mini_program")
source('fib_r.R')
Rcpp::sourceCpp('fibcpp.cpp')
system.time(fib_R(32))
system.time(fib_cpp_1(32))
setwd("C:\\Users\\jiaju\\Documents\\Github\\mini_program")
source('fib_r.R')
Rcpp::sourceCpp('fibcpp.cpp')
system.time(fib_R(32))
system.time(fib_cpp_1(32))