Publications by Real R Application
Hitunbg R0
Apa itu R0? Grafik covid19 akan melandai atau mencapai puncaknya, jika factor R0 mendekati satu atau kurang dari satu. Sebagai contoh mudahnya jika factor R0 =3, artinya satu orang pertama akan menulari 3 orang lain, dan seterusnya berantai. Begitu juga jika R0=2, nah jika R0 lebih kecil dari satu atau negative itu artinya covid19 berhenti. ...
345 sym R (3988 sym/17 pcs)
Trend mobilty
Real Trends Mobility Analysis Crafted by Bambangpe Inputs Bagaimana pergerakan manusia saat pandemik Covid19? Analisa ini membandingkan pergerakan manusia di berbagai negara dan kota2 besar di dunia, data diambil dari Apple Maps(https://www.apple.com/covid19/mobility) , dengan basis data acuan mulai 13 Januari 2020. Variable yang akan ...
1100 sym R (4639 sym/1 pcs) 21 img
Time Serries and Forecasting Analisys
title : “Time Serries Forecasting” author : “Recrafted by bambangpe” output : html_document Upload Library Data Preparation monthly_milk <- read.csv("D:/data/monthly_milk.csv") # Milk production per cow per month head(monthly_milk) ## month milk_prod_per_cow_kg ## 1 1962-01-01 265.05 ## 2 1962-02-01 ...
991 sym R (4137 sym/42 pcs) 8 img 1 tbl
GPA Predict Classification
GPA Prediction, Crafted by Bambangpe Preliminary data, taken from the results of student psychological tests from the universities in Indonesia MBTI INTROVERT.I SENSING.S THINKING.T JUDGING.J E.EKSTROVERT N.INTUITION 1 I N F P 93 20 47 40 7 80 2 E S F J 47 80 4...
1288 sym R (86782 sym/4 pcs) 7 img
Creditcard Fraud
Tentang data Data yang digunakan untuk tutorial dari www.kaggle.com, - Creditcard Fraud Detection. Kumpulan data berisi transaksi yang dilakukan dengan kartu kredit oleh pemegang kartu di Eropa. Dataset ini menyajikan transaksi yang terjadi dalam dua hari. Data terdiri dari 284.807 observasi dan 31 variable. Dimensi data dim(df) ## [1] 284807 ...
560 sym R (9716 sym/24 pcs) 1 img
LDA vs GLM
Comparison between LDA and GLM use data(PimaIndianDiabetes) from library(mlbench) ## Loading required package: MASS Convert varb response to factor dt$diabetes <- ifelse(dt$diabetes=="pos",1,0) dt$diabetes <- as.factor(dt$diabetes) Split data set.seed(123) spl <- sample(nrow(dt),nrow(dt)*.7) train <- dt[spl,] test <- dt[-spl,] Model LDA(Li...
371 sym R (5426 sym/46 pcs) 3 img
R Neural Net Application
Presenting the final result,several code still hidden, waitting for confirmation 1. Test regression neural networks ### Prediction Comparison Regression_Model <- lm(medv~., data=data) #summary(Regression_Model) test <- data[-index,] predict_lm <- predict(Regression_Model,test) MSE.lm <- sum((predict_lm - test$medv)^2)/nrow(test) MSE.net...
259 sym R (6152 sym/36 pcs) 8 img
Evaluation of Overall Survival
Rcode still hidden waiting for confirmation Preparation Importing the raw dataset df <- read.csv("d:/ITALY-1/osk-c.csv") df <- df[,-1] head(df,5) ## Event PFS Group ## 1 1 143 surgery without Fluorescein ## 2 1 120 surgery without Fluorescein ## 3 1 112 surgery without Fluorescein ## 4 1 131 surgery...
202 sym R (3011 sym/19 pcs) 4 img
Survey Analysis
dn <- read.csv("d:/UPWORK-SHINY/dclean-new.csv") ddn <- dn %>% dplyr::select(Firstryprod_Response,Science_Response,Supplement_Response,Age_Response,Veva_response, SpendCostsupplement_Response,Hincome_Response,Region_Response) Analysis rfs <- randomForest(Firstryprod_Response~.,data=ddn) Explainer erfs <- DALEX::explain(rfs...
468 sym R (4426 sym/20 pcs) 5 img
Produsen Vaksin Covid19
Beberapa vaksin yang sudah melewati beberapa uji klinis dan siap di distribusikan. Siapa ya pabriknya dan bagaimana portfolio sahamnya? Data scrapping dari https://finance.yahoo.com, rentang waktu 2 th terakhir, menggunakan aplikasi R code. Data Sinovac Biotech Ltd. (SVA) https://finance.yahoo.com/quote/SVA?ltr=1 getSymbols('SVA') ## 'getSymbols...
2640 sym R (6417 sym/44 pcs) 7 img