gottalottasoul/RiHana
common functions used for hana analytics

Package index
Search the gottalottasoul/RiHana package
Functions
16
Source code
8
Man pages
8
Home
/
GitHub
/
gottalottasoul/RiHana
/
R/get_hana_suites_and_studios.R

R/get_hana_suites_and_studios.R
In gottalottasoul/RiHana: common functions used for hana analytics

Defines functions get_hana_suites_and_studios

Documented in get_hana_suites_and_studios 

get_hana_suites_and_studios <-
function()
{
 
#create df with additional info about Meeting rooms

  hana_unit<-c(
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park District",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place",
  "Park Place"
)



suite_number<-c(
  "2E",
  "2D",
  "2C",
  "2B",
  "2A",
  "3A",
  "3B",
  "3C",
  "4E",
  "4F",
  "4G",
  "4H",
  "4I",
  "4J",
  "4K",
  "4L",
  "4A",
  "4B",
  "4D",
  "3-14",
  "3-28",
  "3-29",
  "3-30",
  "4C-01",
  "4C-02",
  "4C-03",
  "4C-04",
  "4C-08",
  "4C-07",
  "4C-06",
  "02.T20",
  "02.T19",
  "02.T18",
  "02.T16",
  "02.T14",
  "02.T10",
  "02.T09",
  "02.T17",
  "02.T15",
  "02.T05",
  "02.T03",
  "02.T01",
  "02.T12A",
  "02.T12B",
  "02.T12C",
  "02.T12D",
  "02.T12E",
  "02.T12F",
  "02.T12G",
  "02.T08A",
  "02.T08B",
  "02.T08C",
  "02.T08D",
  "02.T08E",
  "02.T08F",
  "02.T08G",
  "02.T07A",
  "02.T07B",
  "02.T07C",
  "02.T07D",
  "02.T07E",
  "02.T07F",
  "02.T07G",
  "02.T06A",
  "02.T06B",
  "02.T04A",
  "02.T04B",
  "02.T13A",
  "02.T13B",
  "02.T13C",
  "02.T13D",
  "02.T13E",
  "02.T13F",
  "02.T13G",
  "02.T11A",
  "02.T11B",
  "02.T02A",
  "02.T02B",
  "02.T02C",
  "02.T02D"
   )

suite_attributes<-c(
  "N. Pearl",
  "window + KWP",
  "window + KWP",
  "prem win + corner + KWP ",
  "prem window",
  "N. Pearl",
  "N. Pearl",
  "N. Pearl",
  "roof view + N. Pearl",
  "N. Pearl",
  "N. Pearl",
  "N. Pearl",
  "N. Pearl",
  "window + KWP",
  "prem win + corner + KWP ",
  "prem window",
  "courtyard view",
  "courtyard view",
  "roof view",
  "N. Pearl",
  "roof view (side/corner)",
  "interior",
  "interior",
  "interior",
  "interior",
  "partial window",
  "partial window",
  "roof view",
  "roof view",
  "roof view",
  "prem window",
  "prem window",
  "prem window",
  "prem window",
  "window",
  "window",
  "window",
  "interior nr mtg",
  "interior",
  "interior",
  "interior",
  "interior nr mtg",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "partial window",
  "interior",
  "interior",
  "interior",
  "interior",
  "interior",
  "interior",
  "interior",
  "interior",
  "interior",
  "limited view",
  "limited view",
  "limited view",
  "limited view"
  )

room_type<-c(
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Suite",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio",
  "Studio"
)

usf<-c(
  1581,
  1470,
  911,
  2504,
  1101,
  1654,
  1284,
  2239,
  1492,
  1283,
  1284,
  1145,
  1124,
  1305,
  2752,
  1089,
  1304,
  1440,
  860,
  48,
  56,
  57,
  56,
  170,
  137,
  39,
  37,
  244,
  291,
  313,
  2485,
  964,
  1037,
  1441,
  1492,
  1562,
  2062,
  1243,
  1259,
  1157,
  1076,
  1064,
  42,
  39,
  130,
  154,
  490,
  190,
  150,
  42,
  38,
  129,
  185,
  283,
  241,
  265,
  45,
  39,
  134,
  189,
  279,
  226,
  219,
  130,
  375,
  130,
  373,
  52,
  38,
  136,
  182,
  127,
  165,
  230,
  415,
  295,
  41,
  106,
  348,
  220
)

rsf<-c(
  2602,
  2420,
  1500,
  4122,
  1812,
  2723,
  2113,
  3685,
  2456,
  2112,
  2113,
  1885,
  1850,
  2148,
  4530,
  1793,
  2146,
  2370,
  1416,
  79,
  92,
  94,
  92,
  280,
  226,
  64,
  61,
  402,
  479,
  515,
  4000,
  1551,
  1669,
  2319,
  2401,
  2515,
  3319,
  2001,
  2027,
  1862,
  1732,
  1713,
  68,
  63,
  209,
  248,
  789,
  306,
  241,
  68,
  61,
  208,
  298,
  456,
  388,
  427,
  72,
  63,
  216,
  304,
  449,
  364,
  353,
  209,
  604,
  209,
  600,
  84,
  61,
  220,
  293,
  205,
  265,
  371,
  668,
  475,
  66,
  171,
  560,
  355
)

desk_price_valuation<-c(
  493,
  589,
  712,
  560,
  615,
  537,
  607,
  529,
  613,
  606,
  589,
  595,
  565,
  600,
  526,
  587,
  566,
  577,
  668,
  650,
  630,
  620,
  620,
  620,
  620,
  660,
  660,
  625,
  625,
  625,
  33050,
  12570,
  13550,
  19130,
  19760,
  20590,
  27380,
  16430,
  16590,
  15530,
  14380,
  14240,
  605,
  605,
  1815,
  2420,
  8470,
  3025,
  2420,
  605,
  605,
  1815,
  3025,
  4235,
  4235,
  4235,
  590,
  590,
  1770,
  2950,
  4130,
  3540,
  3540,
  1770,
  5310,
  1770,
  5310,
  535,
  535,
  1605,
  2140,
  1605,
  2675,
  3745,
  4815,
  4280,
  585,
  1755,
  4680,
  3510
)

desk_price_asking<-c(
  528,
  631,
  762,
  599,
  658,
  575,
  649,
  566,
  655,
  648,
  630,
  637,
  605,
  642,
  563,
  628,
  606,
  617,
  715,
  700,
  670,
  660,
  660,
  664,
  664,
  710,
  710,
  669,
  669,
  669,
  35640,
  13570,
  14620,
  20630,
  21310,
  22210,
  29520,
  17720,
  17900,
  16730,
  15500,
  15340,
  630,
  630,
  1890,
  2520,
  8820,
  3150,
  2520,
  630,
  630,
  1890,
  3150,
  4410,
  4410,
  4410,
  615,
  615,
  1845,
  3075,
  4305,
  3690,
  3690,
  1845,
  5535,
  1845,
  5535,
  560,
  560,
  1680,
  2240,
  1680,
  2800,
  3920,
  5040,
  4480,
  610,
  1830,
  4880,
  3660
)

max_density<-c(
  50,
  39,
  20,
  70,
  28,
  48,
  33,
  66,
  38,
  33,
  34,
  30,
  31,
  34,
  82,
  29,
  36,
  39,
  20,
  1,
  1,
  1,
  1,
  5,
  5,
  1,
  1,
  8,
  8,
  7,
  65,
  19,
  21,
  37,
  37,
  36,
  53,
  30,
  29,
  34,
  30,
  30,
  1,
  1,
  3,
  4,
  14,
  5,
  4,
  1,
  1,
  3,
  5,
  7,
  7,
  7,
  1,
  1,
  3,
  5,
  7,
  6,
  6,
  3,
  9,
  3,
  9,
  1,
  1,
  3,
  4,
  3,
  5,
  7,
  9,
  8,
  1,
  3,
  8,
  6
)  
  

hana_suites_and_studios<-data.frame(hana_unit,suite_number,suite_attributes,room_type,desk_price_asking,desk_price_valuation,rsf,usf,max_density, stringsAsFactors = FALSE)

hana_suites_and_studios

}
gottalottasoul/RiHana documentation built on Aug. 7, 2020, 3:22 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close