Initial commit

Author: Pantelispanka

.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

.Rproj.user/CBD64C72/sdb/prop/80F9F27F

@@ -0,0 +1,2 @@
+{
+}

.Rproj.user/CBD64C72/sdb/prop/INDEX

@@ -0,0 +1 @@
+~%2FJaqpot%2FPredictPBPK%2FR%2Fhello.R="80F9F27F"

.Rproj.user/CBD64C72/sdb/s-B805FFB9/6189EAD4

@@ -0,0 +1,21 @@
+{
+    "collab_server" : "",
+    "contents" : "#' predict makes a PredictionResponse for Jaqpot\n#' @param dataset\n#' @param rawModel\n#' @param additionalInfo\n\npredictgeneric <- function(dataset, rawModel, additionalInfo){\n  feats <- colnames(dataset$dataEntry[,2])\n  rows_data <- length(dataset$dataEntry$values[,2])\n  df <- data.frame(matrix(0, ncol = 0, nrow = rows_data))\n  for(i in feats){\n    fe <- additionalInfo$independentFeatures[i][[i]]\n    feval <- dataset$dataEntry$values[i][,1]\n    df[fe] <- feval\n  }\n  mod <- unserialize(base64_dec(rawModel))\n  model <- mod$MODEL\n  predFeat <- additionalInfo$predictedFeatures[1][[1]]\n  predictions <- predict(model, df)\n  for(i in 1:length(predictions)){\n    prediction<- data.frame(predictions[i])\n    colnames(prediction)<- predFeat\n    if(i==1){lh_preds<- list(unbox(prediction))\n    }else{\n      lh_preds[[i]]<- unbox(prediction)\n    }\n  }\n  datpred <-list(predictions=lh_preds)\n  return(datpred)\n}",
+    "created" : 1536937377220.000,
+    "dirty" : true,
+    "encoding" : "",
+    "folds" : "",
+    "hash" : "310581410",
+    "id" : "6189EAD4",
+    "lastKnownWriteTime" : 1,
+    "last_content_update" : 1536937379773,
+    "path" : null,
+    "project_path" : null,
+    "properties" : {
+        "tempName" : "Untitled1"
+    },
+    "relative_order" : 2,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "r_source"
+}

.Rproj.user/CBD64C72/sdb/s-B805FFB9/7CF3EB3C

@@ -0,0 +1,20 @@
+{
+    "collab_server" : "",
+    "contents" : "# Hello, world!\n#\n# This is an example function named 'hello' \n# which prints 'Hello, world!'.\n#\n# You can learn more about package authoring with RStudio at:\n#\n#   http://r-pkgs.had.co.nz/\n#\n# Some useful keyboard shortcuts for package authoring:\n#\n#   Build and Reload Package:  'Cmd + Shift + B'\n#   Check Package:             'Cmd + Shift + E'\n#   Test Package:              'Cmd + Shift + T'\n\nhello <- function() {\n  print(\"Hello, world!\")\n}\n",
+    "created" : 1536937364645.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "644263049",
+    "id" : "7CF3EB3C",
+    "lastKnownWriteTime" : 1536937360,
+    "last_content_update" : 1536937360,
+    "path" : "~/Jaqpot/PredictPBPK/R/hello.R",
+    "project_path" : "R/hello.R",
+    "properties" : {
+    },
+    "relative_order" : 1,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "r_source"
+}

.Rproj.user/CBD64C72/sdb/s-B805FFB9/lock_file

@@ -0,0 +1 @@
+virtual-session-id="81D0794A"

.Rproj.user/CBD64C72/session-persistent-state

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitattributes

@@ -0,0 +1,11 @@
+Package: PredictPBPK
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1.0
+Author: Who wrote it
+Maintainer: The package maintainer <[email protected]>
+Description: More about what it does (maybe more than one line)
+    Use four spaces when indenting paragraphs within the Description.
+License: What license is it under?
+Encoding: UTF-8
+LazyData: true

DESCRIPTION

@@ -0,0 +1 @@
+exportPattern("^[[:alpha:]]+")

LICENSE

@@ -0,0 +1,20 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source

NAMESPACE

@@ -0,0 +1,18 @@
+# Hello, world!
+#
+# This is an example function named 'hello' 
+# which prints 'Hello, world!'.
+#
+# You can learn more about package authoring with RStudio at:
+#
+#   http://r-pkgs.had.co.nz/
+#
+# Some useful keyboard shortcuts for package authoring:
+#
+#   Build and Reload Package:  'Cmd + Shift + B'
+#   Check Package:             'Cmd + Shift + E'
+#   Test Package:              'Cmd + Shift + T'
+
+hello <- function() {
+  print("Hello, world!")
+}

PredictPBPK.Rproj

@@ -0,0 +1 @@
+# PredictPBPK

R/hello.R

@@ -0,0 +1,12 @@
+\name{hello}
+\alias{hello}
+\title{Hello, World!}
+\usage{
+hello()
+}
+\description{
+Prints 'Hello, world!'.
+}
+\examples{
+hello()
+}