自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(10)
  • 收藏
  • 关注

原创 R Shiny

目录App StructureOfficial DemosBasic LayoutsSidebar LayoutGrid LayoutTabsetsNavlistsNavbar PagesText FormatFunctionsExamplesControl WidgetsFunctionsExamplesOutputsStepsOutput functionsRender functionsEx...

2019-08-03 23:31:45 754

原创 R Keras

目录MNIST代码IMDB代码TipsReuters代码TipsBoston代码TipsMNIST代码library(keras)#loading the keras inbuilt mnist datasetdata<-dataset_mnist()#separating train and test filetrain_x<-data$train$xtrain_...

2019-08-02 22:38:58 526

原创 R Heatmap

绘图数据data = (scale(mtcars))简单热图heatmap(data, scale = "none")调色板library("RColorBrewer")col <- colorRampPalette(brewer.pal(10, "RdYlBu"))(256)heatmap(data, scale = "none", col = col, RowSide...

2019-08-02 22:14:51 603

原创 R PCA

导入数据data(decathlon2)data <- decathlon2[1:23, 1:10]#PCAres.pca <- PCA(data, graph = FALSE)数据分析#特征值 可解释变异比例 累计可解释变异比例eig.val <- get_eigenvalue(res.pca)fviz_eig(res.pca, addlabels = TR...

2019-08-02 22:07:09 408

原创 R Cluster

代码datar1 <- c("index1", "index2", "index3", "index4")r2 <- c(1, 7, 2, 4)data <- cbind(r1, r2)row.names(data) <- data[, 1]data <- data[, -1]#distdistance <- dist(data, metho...

2019-08-02 21:55:17 564

原创 R ggplot2

数据library(ggplot2)data <- diamonds[sample(nrow(diamonds), 1000), ]各种图散点图#defaultggplot(mtcars, aes(x = mpg, y = wt, colour = cyl)) + geom_point()#multidataggplot()+ geom_point(mtcars,...

2019-08-02 16:16:13 349

原创 R plot

绘图数据x1 = round(runif(100,80,100))x2 = round(rnorm(100,80,7))x3 = round(rnorm(100,83,18))x3[which(x3>100)] = 100num = seq(1,100)x = data.frame(num,x1,x2,x3)多图#parpar(mfrow = c(2,...

2019-08-02 15:48:08 441

原创 R Notes [2]

自定义函数myfunction = function(x,a,b){ return(x+a*b)}myfunction(1,2,3)curve(myfunction(x,3,2),xlim=c(1,20))排序a = c(1,2,3,4,5,3,5,4,2,3,5,6)sort(a)rev(sort(a))索引a = c(1,2,3,4,5,3,5,4,2,3,5,6)...

2019-08-02 15:23:01 295

原创 R Notes [1]

变量#vectorv1 = c(1,2,3,4,5)v2 = 1:5v3 = seq(1,30,2)v4 = rbind(v1,v2)v5 = cbind(v1,v2)#matrixm = matrix(1:20,nrow=5,ncol=4,byrow=TRUE)m[1,]m[,1]m[2,3]m[2,c(1,3,4)]rownames(m) = c('1','1','...

2019-08-02 14:49:20 173

原创 Matlab Faster R-CNN

imageLabeler用法Load -> Add images from folderDefine new rectangle or pixel ROIManual labelingExport Labels -> To Workspace -> “TrainData”&“table”代码%标注工具箱imageLabeler%参数options ...

2019-08-01 10:00:09 1335

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除